home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / EXTERN / EASYGRAP.D next >
Encoding:
Modula Definition  |  1989-08-22  |  2.1 KB  |  49 lines
  1. DEFINITION MODULE EasyGraphics;
  2.  
  3.  
  4. (*  --------------------------------------------------------------------------
  5.  *  System-Version: MOS 1.1
  6.  *  --------------------------------------------------------------------------
  7.  *  Version       : 0.01
  8.  *  --------------------------------------------------------------------------
  9.  *  Text-Version  : V#0002
  10.  *  --------------------------------------------------------------------------
  11.  *  Modul-Holder  : Manuel Chakravarty
  12.  *  --------------------------------------------------------------------------
  13.  *  Copyright February 89 by Manuel Chakravarty
  14.  *  Vertriebsrechte für ATARI ST unter MEGAMAX Modula-2
  15.  *                  liegen bei Application Systems Heidelberg
  16.  *  --------------------------------------------------------------------------
  17.  *  MCH : Manuel Chakravarty
  18.  *  --------------------------------------------------------------------------
  19.  *  Modul-Beschreibung:
  20.  *
  21.  *  Grundlegende Grafikroutinen in einem Fenster.
  22.  *  --------------------------------------------------------------------------
  23.  *)
  24.  
  25. PROCEDURE Clear ();
  26.  
  27. PROCEDURE Dot (x, y: INTEGER);
  28.  
  29. PROCEDURE SetPen (x, y: INTEGER);
  30.  
  31. PROCEDURE TurnTo (d: INTEGER);
  32.  
  33. PROCEDURE Turn (d: INTEGER);
  34.  
  35. PROCEDURE Move (d: INTEGER);
  36.  
  37. PROCEDURE MoveTo (x, y: INTEGER);
  38.  
  39. PROCEDURE Circle (x, y, r: INTEGER);
  40.  
  41. PROCEDURE Write (ch: CHAR);
  42.  
  43. PROCEDURE WriteString (str: ARRAY OF CHAR);
  44.  
  45. PROCEDURE IdentifyPos (VAR x, y: INTEGER);
  46.  
  47. END EasyGraphics.
  48. (* $FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BEü$000005C7T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000005D8$FFED2A52$00000398$FFED2A52$000005C7$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BE$FFED51BEöÇü*)
  49.